qqplot <- function(mod){
qqnorm(mod$residuals); qqline(as.vector(mod$residuals))
}
fitplot <- function(mod){
plot(fitted(mod), sqrt(abs(residuals(mod))));abline(lm(sqrt(abs(residuals(mod)))~fitted(mod)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.